No tak, w części 1 opisałem podstawy budowania edytora tekstów. Co dalej? Przede wszystkim procedura zapisującą text. Należy ja trochę unowocześnić. Pewnie zauważyłeś, ze zapisując tekst do pliku powstają jakieś "bohomazy"? :) No cóż nie włączyliśmy odpowiedniej opcji. Przyda się ona później. Przede wszystkim filtry. W okienku do zapisu pliku powinny być dostępne filtry. Zaznacz komponent "SaveDialog". W Inspektorze Obiektów kliknij w polu "Filter". Pojawi się okienko, w którym należy wpisać swoje filtry. Po lewej stronie wpisujemy nazwę filtry, a po prawej sam filtr - np.: *.txt
Ja wpisałem tak:

Lewa kolumna	Prawa kolumna
Plik TeXTowy (*.txt)	*.txt
Pliki INI (*.ini)	*.ini
Pliki WordPada (*.wri)	*.wri
Wszystkie pliki (*.*)	*.*

Teraz użytkownik będzie mógł zapisać w 4 dostępnych filtrach. To nie wszystko - trzeba jeszcze dopisać kod. Jak zapewne wiesz pliki z rozszerzeniem *.wri są zapisywane w formacie WordPad'a. W tym formacie może być także zapisywany text z pokolorowanymi wyrazami, pogrubiony itp. Nasz edytor także będzie to potrafił.
Teraz należy zmodyfikować procedurę "btnSaveAs". Teraz wygląda ona tak:
if SaveDialog.Execute then

RichEdit.Lines.SaveToFile(SaveDialog.FileName); // zapisz plik
Caption := ExtractFileName(SaveDialog.FileName) + ' - ' + AppName;
RichEdit.Modified := False; // ustaw wartosc na "False"
Teraz zmodyfikuj ja w ten sposób:
procedure TMainFrm.btnSaveAsClick(Sender: TObject);
begin
{
W tej procedurze nastepuje wywolanie okna "Otworz", a
nastepnie zapisanie pliku. Wartosc "SaveDialog.FileName"
przechowuje sciezke pliku tekstowego pod jakim zapisales
swoj dokument. Na samym koncu nastepuje zmiana wlasciwoscie
"Caption" okna, a później ustawienie wartosci "Modified" na
"False"
}
if SaveDialog.Execute then
begin
with SaveDialog do // instrukcja wiazaca
begin
{
Kazdy filtr zawiera okreslony numer od 1 do ilosci
Twoich filtrow. Wlasciwosc "DefaultExt" zawiera info
o domyslnym filtrze.
}
case FilterIndex of // w zaleznosci od indeksu
1: DefaultExt := '.txt';
2: DefaultExt := '.ini';
3: DefaultExt := '.wri';
4: DefaultExt := '';
end;

if FilterIndex = 3 then
RichEdit.PlainText := False
else RichEdit.PlainText := True;
end;

RichEdit.Lines.SaveToFile(SaveDialog.FileName + SaveDialog.DefaultExt); // zapisz plik
Caption := ExtractFileName(SaveDialog.FileName) + ' - ' + AppName;
RichEdit.Modified := False; // ustaw wartosc na "False"
end;
end;
Chuch, trochę się rozrosła prawda? Już wyjaśniam. Przede wszystkim instrukcja wiążąca. Nie robi ona nic specjalnego - po prostu zmniejsza ilość słow. do napisania.
RichEdit.SelAttributes.Color := clRed;
RichEdit.SelText := 'boduch@poland.com';
Ten kod zmienia kolor czcionki komponentu "RichEdit" na czerwony i wstawia tekst w miejsce kursora. Poniższy kod jest równoznaczny z powyższym:
with RichEdit do
begin
SelAttributes.Color := clRed;
SelText := 'boduch@poland.com';
end;
Rozumiesz, mniej pisania - nie trzeba ciągle pisać "RichEdit" - wystarczy raz. I w procedurze wszystkie operacje wiążące są z komponentem "SaveDialog". Następnie instrukcja "case". Jest to instrukcja podobna do "if". Po prostu zamiast pisać:
var
I : Integer;
begin
I := 25;
if I = 20 then
ShowMessage('NIE');
if I = 14 then
ShowMessage('NIE');
if I = 25 then
ShowMessage('TAK');
Można napisać tak:
var
I : Integer;
begin
I := 25;
case I of
20: ShowMessage('NIE');
14: ShowMessage('NIE'0;
25: ShowMessage('TAK');
end;
Czyż nie jest to wygodniejsze i przejrzystsze :) Naturalnie, jeżeli blok instrukcji obejmuje więcej niz. jedna linie musisz dodać linie: begin i end:
case I of
20: begin
ShowMessage('NIE');
I := 23;
end;
W procedurze w zależności od numeru filtru ( pierwszy filtr do cyfra 1, a kolejny to po prostu kolejna cyfra ) przypisywane jest domyślne rozszerzenie ( właściwość "DefaultExt" to domyślne rozszerzenie, które automatycznie będzie dopisywane do nazwy pliku ). Zauważ, ze przy ostatnim ( 4 ) rozszerzeniu nie będzie dopisywane nic. Jedziemy dalej. Następnie warunek "if" sprawdza, jakie rozszerzenie wybraliśmy. Pamiętasz jak w zapisywanym pliku powstawały jakieś "krzaczki"? Właściwość "PlainText" określa czy te krzaczki będą, czy nie. No dobra, tak sobie mowie - krzaczki :) Tak naprawdę to zapisywane są kolory poszczególnych wyrazów, rozmiary czcionek itp. W przyszłości program nasz tak unowocześnimy, ze będzie można dokonywać zmian takich jak w Wordzie ( kolorowanie poszczególnych wyrazów, pogrubianie, zmiana czcionki itp. ) i wtedy ta właściwość się nam przyda. Jeżeli wybrałeś rozszerzenie *.wri - wtedy właściwość ta przybiera wartość "False" - w przeciwnym wypadku - "True”, czyli wyrazy nie będą kolorowane i będzie to "czysty" tekst.

Przyozdabianie programu